home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / UTILITY.EXE / EQUIP.BAS < prev    next >
BASIC Source File  |  1991-03-26  |  1KB  |  24 lines
  1. 'For identification of equipment in system outside of that available with
  2. 'CARDTYPE for video cards and FRE for availability, free size and total
  3. 'size of floppy, hard drive and other storage devices.
  4. DEFINTA-Z
  5. DEF SEG = 0 : COLOR ,31 : CLS
  6. Byte1 = PEEK (&H410)
  7. Byte2 = PEEK (&H411)
  8. Byte1$ = RIGHT$ (BIN$ (Byte1),8)
  9. Byte2$ = RIGHT$ (BIN$ (Byte2),8)
  10. MathCoprocessor$ = MID$(Byte1$,7,1)
  11. IF MathCoprocessor$ = "1" PRINT "Math Coprocessor Installed"
  12. Serial$ = MID$(Byte2$,5,3)
  13. IF Serial$ = "000" PRINT "No Serial Port Installed"
  14. IF Serial$ = "001" PRINT "One Serial Port Installed"
  15. IF Serial$ = "010" PRINT "Two Serial Ports Installed"
  16. IF Serial$ = "011" PRINT "Three Serial Ports Installed"
  17. IF Serial$ = "100" PRINT "Four Serial Ports Installed"
  18. Printer$ = LEFT$(Byte2$,2)
  19. IF Printer$ = "00" PRINT "No Printer Port Installed"
  20. IF Printer$ = "01" PRINT "One Printer Port Installed"
  21. IF Printer$ = "10" PRINT "Two Printer Ports Installed"
  22. IF Printer$ = "11" PRINT "Three Printer Ports Installed"
  23.  
  24.